1 POKE788,52:POKE53280,0:POKE53281,0:PRINTCHR$(147)
2 JOY=56320:A=2:J$="NEUTRAL":VL$="00":B$="AUS"
5 PRINT" JOYSTICK TESTER /  MICHAEL SMITH  1989 [146]"
12 PRINT"     [209]     ":PRINT
13 PRINT" [209]       [209]  "
15 PRINT"[209]    [209]    [209]  "
16 PRINT"           "
17 PRINT" [209]       [209]  "
18 PRINT"     [209]     "
20 PRINT"JOYSTICK PORT     :";A"[146]"
21 PRINT"JOYSTICK RICHTUNG :";J$"[146]"
22 PRINT"VALUE:";VL$"[146]"
23 PRINT"FEUER - TASTE     :";B$;"[146]"
24 PRINT"          "
25 PRINT"     DRUECK SPACE FUER PORTWECHSEL    [146]"
50 FORK=0TO10
51 GOSUB100
55 GETA$:IFA$=""THEN56
56 IFA$=" "THENGOTO150
67 IFJV=0THEN98
68 IFJV=1THENJ$="HOCH       ":VL$="01":GOTO507
69 IFJV=2THENJ$="RUNTER     ":VL$="02":GOTO506
70 IFJV=4THENJ$="LINKS      ":VL$="04":GOTO505
71 IFJV=5THENJ$="HOCH/LINKS ":VL$="05":GOTO504
72 IFJV=6THENJ$="RUNTER/LI. ":VL$="06":GOTO503
73 IFJV=8THENJ$="RECHTS     ":VL$="08":GOTO502
74 IFJV=9THENJ$="HOCH/RECHTS":VL$="09":GOTO501
95 IFJV=10THENJ$="RUNTER/RE. ":VL$="10":GOTO500
98 IFFR=16THENB$="AUS":J$="NEUTRAL    ":VL$="00":GOTO510
99 B$="AN ":GOTO23
100 JV=PEEK(JOY)
110 FR=JVAND16
120 JV=15-(JVAND15)
130 RETURN
140 END
150 IFA=2THENJOY=56321:A=1:GOTO12
155 IFA=1THENJOY=56320:A=2:GOTO12
160 END
500 PRINT"[153] [209][150]       [209]  ":GOTO12
501 PRINT" [209][150]       [209]  ":GOTO12
502 PRINT"[209]    [209][150]    [209]  ":GOTO12
503 PRINT"[150] [209]       [209]  ":GOTO12
504 PRINT"[150] [209]       [209]  ":GOTO12
505 PRINT"[150][209]    [209]    [209]  ":GOTO12
506 PRINT"[150]     [209]     ":GOTO12
507 PRINT"[150]     [209]     ":GOTO12
510 PRINT"[209]   [150] [209]    [209]  ":GOTO12
520 END